(comint-replace-by-expanded-history-before-point): Fix

change of 2000-08-03 to move point to the start of the line again.

diff --git a/lisp/comint.el b/lisp/comint.el
index 72e536c0d0881eb3a26dc621bac420810e0e665f..921b567276fe1342c6f86e1946fa1302122b75ea 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1136,6 +1136,7 @@ than the logical beginning of line."
   (save-excursion
     (let ((toend (- (line-end-position) (point)))
          (start (comint-line-beginning-position)))
+      (goto-char start)
       (while (progn
               (skip-chars-forward "^!^" (- (line-end-position) toend))
               (< (point) (- (line-end-position) toend)))